perm filename CYCDR2.LAP[1,LMM] blob
sn#033100 filedate 1973-04-04 generic text, type T, neo UTF8
(LAP FINDNDS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL RA))
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 2 (SPECIAL NMX))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 1 -1 P)
(CALL 1 (E NODEARRAY))
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 20))
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
TAG3
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVEI 2 (QUOTE (15 . 15)))
(HLRZ@ 1 (SPECIAL LINE))
(CALL 1 (E CAAR))
(CALL 2 (E SETND))
(MOVE 1 (SPECIAL LINE))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(CLEARM 1 -3 P)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
TAG6 (HLRZ@ 1 (SPECIAL LINE))
(MOVEM 1 0 P)
(CALL 1 (E CDAR))
(MOVEM 1 -1 P)
(CALL 1 (E NODEARRAY))
(CAIE 1 (QUOTE 0))
(JRST 0 TAG25)
(JRST 0 TAG24)
TAG25 (MOVE 3 -3 P)
(MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 3 (E RTLIN))
(JUMPN 1 TAG12)
(JRST 0 TAG7)
TAG24 (MOVE 1 -2 P)
(JUMPE 1 TAG30)
(MOVE 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E STKNDS))
TAG30
TAG7 (HLRZ@ 1 (SPECIAL STACK))
(MOVEM 1 -2 P)
(HRRZ@ 1 (SPECIAL STACK))
(MOVEM 1 (SPECIAL STACK))
(MOVE 1 -2 P)
(CALL 1 (E ATOM))
(JUMPN 1 TAG13)
(HLRZ@ 2 -2 P)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E SETND))
(MOVE 3 -3 P)
(MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 3 (E RTLIN))
(JUMPN 1 TAG11)
(MOVEI 2 (QUOTE (0 . 0)))
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E SETND))
(JRST 0 TAG7)
TAG10 (MOVE 2 -3 P)
(MOVE 1 0 P)
(CALL 2 (E CONS))
(MOVEM 1 -3 P)
(HRRZ@ 1 (SPECIAL LINE))
(MOVEM 1 (SPECIAL LINE))
(MOVEI 1 (QUOTE T))
(MOVEM 1 -2 P)
(MOVE 1 (SPECIAL LINE))
(JUMPN 1 TAG6)
(JRST 0 TAG16)
TAG11 (MOVE 2 (SPECIAL STACK))
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL LINE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(JRST 0 TAG10)
TAG12 (MOVE 2 (SPECIAL LINE))
(HLRZ@ 1 -3 P)
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL STACK))
(PUSH P 1)
(HRRZ@ 1 -4 P)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(JRST 0 TAG10)
TAG13 (HLRZ@ 1 (SPECIAL STACK))
(MOVEM 1 (SPECIAL LINE))
(HRRZ@ 1 (SPECIAL STACK))
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 (SPECIAL STACK))
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL STACK))
(HLRZ@ 1 (SPECIAL LINE))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL STACK))
(JUMPE 1 TAG14)
(MOVE 1 -2 P)
(JUMPE 1 TAG37)
(MOVEI 2 (QUOTE (0 . 0)))
(CALL 2 (E SETND))
TAG37 (HLRZ@ 1 (SPECIAL STACK))
(CALL 1 (E ATOM))
(JUMPN 1 TAG7)
(HLRZ@ 1 (SPECIAL STACK))
(CALL 1 (E CADR))
(CALL 1 (E NODEARRAY))
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
(CLEARM 1 -2 P)
(JRST 0 TAG6)
TAG14 (MOVE 1 (SPECIAL RA))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL RA))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG42)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -4 P)
TAG42 (JRST 0 TAG1)
TAG16 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 5 5))
(JRST 0 SPECSTR)
NIL
(LAP STKNDS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 2 TAG26)
(MOVE 2 (SPECIAL LINE))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL STACK))
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 -10 P)
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(JRST 0 TAG25)
TAG26 (MOVE 2 (SPECIAL LINE))
(HLRZ@ 1 -7 P)
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL STACK))
(PUSH P 1)
(HRRZ@ 1 -10 P)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 -10 P)
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
TAG27
TAG25 (MOVEI 1 (QUOTE 0))
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 100))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 -3 P)
(MOVEI 1 (QUOTE 100))
(MOVEM 1 -4 P)
(MOVE 1 (SPECIAL STACK))
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 6))
(CALL 2 (E *LESS))
(JUMPE 1 TAG32)
(MOVEI 1 (QUOTE 16))
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 15))
(MOVEM 1 -3 P)
TAG32 (MOVE 1 -10 P)
(CALL 1 (E CONNARRAY))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(CALL 1 (E NODEARRAY))
(MOVEM 1 -7 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG4)
(MOVEI 2 (QUOTE 20))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -10 P)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E MAX))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -3 P)
(MOVE 1 -7 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E MIN))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -4 P)
(MOVE 1 -10 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 2 (E MAX))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -5 P)
(MOVE 1 -10 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(MOVE 1 -6 P)
(CALL 2 (E MIN))
(MOVEM 1 -6 P)
TAG2
TAG3
TAG4
TAG5 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG23)
(MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG23)
(CLEARM 1 0 P)
(MOVE 1 -1 P)
(MOVEM 1 -5 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG7 (MOVE 2 -3 P)
(MOVE 1 -6 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG21)
(MOVE 1 -4 P)
(MOVEM 1 -7 P)
TAG10 (MOVE 2 -5 P)
(MOVE 1 -7 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG17)
(PUSH P (C 0 0 (QUOTE T) 0))
(PUSH P (C 0 0 (QUOTE 1) 0))
TAG11 (MOVE 2 (SPECIAL NMX))
(MOVE 1 0 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG14)
(MOVE 1 0 P)
(CALL 1 (E NODEARRAY))
(MOVE 2 -10 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG56)
(MOVEI 2 (QUOTE 20))
(MOVE 1 0 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVE 2 -11 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG56)
(TDZA 1 1)
TAG56 (MOVEI 1 (QUOTE T))
(MOVEM 1 -1 P)
(JUMPN 1 TAG55)
(MOVE 1 -1 P)
(JRST 0 TAG50)
TAG55
TAG12
TAG13 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E *PLUS))
(MOVEM 1 0 P)
(JRST 0 TAG11)
TAG14 (MOVE 1 -1 P)
TAG50 (SUB P (C 0 0 2 2))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE T))
(MOVE 2 -7 P)
(MOVEM 1 -1 P)
(MOVE 1 -6 P)
(CALL 2 (E CONS))
(PUSH P 1)
(MOVE 1 -12 P)
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL STACK))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL STACK))
TAG15
TAG16 (MOVEI 2 (QUOTE 1))
(MOVE 1 -7 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -7 P)
(JRST 0 TAG10)
TAG17
TAG20 (MOVEI 2 (QUOTE 1))
(MOVE 1 -6 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -6 P)
(JRST 0 TAG7)
TAG21 (MOVE 1 0 P)
(SUB P (C 0 0 1 1))
(MOVE 1 0 P)
(JRST 0 TAG22)
TAG23 (MOVEI 1 (QUOTE NIL))
TAG22 (SUB P (C 0 0 11 11))
(POPJ P)
NIL